procedure TForm1.Button1Click(Sender: T);


function ObtienePath(De:String):string;
var
  Registro: TRegIniFile;
begin
  Registro :=TRegIniFile.Create("Software\MicroSoft\Windows\CurrentVersion\Explorer");

  Result:= Registro.ReadString("Shell Folders",De,"");

  Registro.Free;
end;


begin
  ListBox1.TabWidth:=130;

  ListBox1.Columns:=2;

  with ListBox1.Items do
 begin
    Add("Escritorio/Desktop:"                +^I+ObtienePath("Desktop"));

    Add("Favoritos/Favorites:"               +^I+ObtienePath("Favorites"));

    Add("Fonts/Fonts:"                       +^I+ObtienePath("Fonts"));

    Add("Mis Documentos/My Documents:"       +^I+ObtienePath("Personal"));

    Add("Inicio->Programas/Start->Programs:" +^I+ObtienePath("Programs"));

    Add("Ficheros Recientes/Recent Files:"   +^I+ObtienePath("Recent"));

    Add("Menu Inicio/Start Menu:"            +^I+ObtienePath("Start Menu"));

    Add("Inicio/StartUp:"                    +^I+ObtienePath("Startup"));

  end;
end;

برای باز کردن هر کدام از این دایرکتوری های ویژه از این تابع استفاده کنید